5 IRQ
6 GCL
10 FOR Y=0TO6
20 FOR X=0TO39
30 S=Y*40+X
35 IF S>255 GOTO 50
40 CHAR,Y,X,CHR$(S),0
50 NEXTX,Y